home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / iris / poll.irx < prev    next >
Text File  |  1999-05-14  |  378b  |  13 lines
  1. /* REXX script to check periodically for new mail */
  2. /* $VER: Poll.irx V1.1 (supplied with Iris V1.2b) */
  3.  
  4. if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  5. do while show('P','IRIS') & showlist('H','TCP')
  6.    address IRIS
  7.    GETMAIL
  8.    SENDMAIL IMMED
  9.    address command
  10.    WAIT 3 MINS
  11. end
  12. say 'Poll.irx ending - TCP/IP and/or Iris is not available.'
  13.